use strict;
use Stdlog;
use File::Spec;
use Test::More;

eval { 
    require DBI; 
    require DBD::SQLite;
};
if( $@ ) {
    plan skip_all => 'DBI or DBD::SQLite not installed' 
}else{
    plan tests => 1;
}

# Test 1 -- create Syslog writer
my $writer = Stdlog::Writer->new({writer => 'DBI'});
ok($writer && ref($writer) eq 'Stdlog::Writer::DBI',
    "Created Stdlog::Writer::DBI");
